home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 136 / 136.d81 / b.sleep helper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  31 lines
  1. 63000 dv=peek(186):ifdv<8thendv=8
  2. 63010 delay=116:poke53280,0:poke53281,0
  3. 63020 print"[147]";
  4. 63030 fori=8to23:print"[169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";:next
  5. 63040 print"":fori=217to242:pokei,peek(i)or128:next
  6. 63050 poke214,9:print"[145]"tab(2)"[153][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  7. 63060 fori=1to11:printtab(2)"[159]                                    [155][146][223]":next
  8. 63070 printtab(2)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][155][223]"
  9. 63080 print"[155][169][169][169][169][169][169][169][151][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][155][223][223][223][223][223][223][223][223][223][223]"
  10. 63090 poke214,10:print"[145][159]";
  11. 63100 fori=1to11:reada$
  12. 63110 printspc(20-len(a$)/2)""a$:a$="":next
  13. 63120 delay=delay+1:j=peek(56320)and16:geta$:if(a$="")andj<>0anddel<116then63120
  14. 63130 a$="sleep.helper"
  15. 63140 data"[211][204][197][197][208] [200][197][204][208][197][210]","by [215]m [207]. [206]elson"
  16. 63150 data"  ([195])1995 by [211]oftdisk [208]ublishing"
  17. 63160 data"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  18. 63170 [131]"   (NULL)his is the copyrighted work of
  19. 63180 data"[211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199], [206][207][212] intended
  20. 63190 [131]"for distribution as public domain ","or shareware.  ascor information on
  21. 63200 data"[204][207][193][196][211][212][193][210] and [204][207][193][196][211][212][193][210] products,   "
  22. 63210 data"call [211][207][198][212][196][201][211][203] [195]ustomer service at"
  23. 63220 data"1-800-594-3370 or 1-318-221-8718
  24. 63230 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]63250
  25. 63240 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]63260
  26. 63250 [130]:[153]""a$" not found!":[151]186,8:[128]
  27. 63260 q$[178][199](34):[151]646,[194](53281):[153]"";
  28. 63270 [153]"p(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  29. 63280 [153]"r(NULL):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
  30. 63290 [151]635,145:[151]636,13:[151]198,6
  31.